www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\Inc\Conn.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
session.CodePage=65001
Response.ContentType = "text/html"
Response.Charset = "utf-8"
Response.Expires=-999
Session.Timeout=200
dim Conn
dim Connstr
dim db
db="/Da%2fta/Data.mdb"
'On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr
If Err Then
	err.Clear
	response.write("数据库连接出错，请检查连接字串。")
	response.End()
End If
%>